FIELD #2, 2 AS Z$(7,1),4 AS g$(7,1),2 AS Z$(7,2),4 AS g$(7,2),2 AS Z$(7,3),4 AS g$(7,3),2 AS Z$(7,4),4 AS g$(7,4),2 AS Z$(8,1),4 AS g$(8,1),2 AS Z$(8,2),4 AS g$(8,2),2 AS Z$(8,3),4 AS g$(8,3),2 AS Z$(8,4),4 AS g$(8,4)
IF U%(c)=b THEN d=d+1:Satznum%(b,d)=c:MENU b,d,1,U$(c)
NEXT c
NEXT b
CLOSE 1
GOTO Auswahl
Hinzufugen:
OPEN "a",#1,"Übungen"
los:
PRINT "Was soll bei ";b$(x);" hinzugefügt werden?"
INPUT ;U$
IF U$="" THEN CLOSE 1:GOTO Anfang
U%=x
PRINT #1,U%,U$
Z$(7,1)="":Z$(8,1)=""
PUT #2
OPEN "O",#3,U$
h=0:j=0
FOR i= 1 TO 30
PRINT #3,h,j
NEXT i
CLOSE 3
TOT$=U$+".info"
KILL TOT$
CLOSE 1:GOTO Anfang
Auswahl:
CLS
PRINT:PRINT "Bitte wählen sie jetzt die Teilnehmer aus":PRINT:PRINT "oder fügen sie eine Übung hinzu":PRINT:PRINT "oder beenden sie dieses Programm mit EXIT"
n=0
Warten:
x=MENU (0):y=MENU(1)
SLEEP
IF n>1 AND n%(1)=n%(2)OR n>2THEN BEEP:CLS:PRINT:PRINT "Mit sich selbst nur beim Onanieren":PRINT:PRINT "Nochmal von vorn":n=0:GOTO Warten
IF x=6 AND y=3 THEN CLOSE 2:GOSUB Soundend:END
IF x=0 GOTO Warten
IF x=6 AND y=4 AND n=0 THEN GOTO Statibugeln
IF x=6 AND y=4 AND n><0 THEN PRINT:PRINT "Döskopp,wähle Partner oder Übung":GOTO Warten
IF x<6 AND y=1 THEN GOTO Warnung
IF x<6 AND n=0 THEN BEEP:PRINT:PRINT"Erst die Teilnehmer,Baby":GOTO Warten
IF x=6 AND y=1 THEN PRINT:PRINT b$(7):PRINT:PRINT "Noch jemand?":PRINT:PRINT "Oder eine Übung":n=n+1:n%(n)=7:GOTO Warten
IF x=6 AND y=2 THEN PRINT:PRINT b$(8):PRINT:PRINT "Noch jemand?":PRINT:PRINT "Oder eine Übung":n=n+1:n%(n)=8:GOTO Warten
IF x<6 AND n>0 THEN GOTO Training
Training:
GET #2,Satznum%(x,y)
FOR f=1 TO 4
Zahl%(7,f)=CVI(Z$(7,f))
Zahl%(8,f)=CVI(Z$(8,f))
Gewicht(7,f)=CVS(g$(7,f))
Gewicht(8,f)=CVS(g$(8,f))
NEXT f
Trainingaction:
MENU 6,3,1,"Exit nach aktueller Eingabe"
FOR f= 1 TO 4
FOR h= 1 TO n
IF n%(h)=7 THEN COLOR 0,2
IF n%(h)=8 THEN COLOR 0,3
CLS
PRINT b$(n%(h)),:PRINT U$(Satznum%(x,y)):PRINT:PRINT "Satz","Anzahl","Gewicht in Kilo"
FOR i= 1 TO 4
PRINT i,Zahl%(n%(h),i),Gewicht(n%(h),i)
PRINT
NEXT i
PRINT "Satz ";f :PRINT
IF f=1 THEN PRINT " Return gibt ersten Wert aus alter Übung":PRINT
IF f>1 THEN PRINT "Return gibt Werte aus letztem Satz":PRINT
IF f>1 THEN PRINT "Letzter Satz",Zahl%(n%(h),f+3);"mal",Gewicht(n%(h),f+3);"kg":PRINT
INPUT "Anzahl";Zahl%(n%(h),f+4)
IF Zahl%(n%(h),f+4)=0 AND f=1 THEN Zahl%(n%(h),f+4)=Zahl%(n%(h),f):PRINT Zahl%(n%(h),f+4)
IF Zahl%(n%(h),f+4)=0 AND f>1 THEN Zahl%(n%(h),f+4)=Zahl%(n%(h),f+3):PRINT Zahl%(n%(h),f+4)
INPUT "Gewicht in Kilo";Gewicht(n%(h),f+4)
IF Gewicht(n%(h),f+4)=0 AND f=1 THEN Gewicht(n%(h),f+4)=Gewicht(n%(h),f):PRINT Gewicht(n%(h),f+4)
IF Gewicht(n%(h),f+4)=0 AND f>1 THEN Gewicht(n%(h),f+4)=Gewicht(n%(h),f+3):PRINT Gewicht(n%(h),f+4)
IF n%(h)=7 THEN GOSUB soundeins
IF n%(h)=8 THEN GOSUB soundzwei
IF MENU(0)=6 AND MENU (1)=3 THEN GOTO Anfang
NEXT h
NEXT f
FOR h= 7 TO 8
m&(h)=0
FOR f= 1 TO 4
m&(h)=m&(h)+Gewicht(h,f+4)*Zahl%(h,f+4)
NEXT f
NEXT h
IF n=2 GOTO Trainingspeichern
IF n=1 GOTO Trainingspeicherneins
Trainingspeichern:
FOR f= 1 TO 4
LSET Z$(7,f)=MKI$(Zahl%(7,f+4))
LSET Z$(8,f)=MKI$(Zahl%(8,f+4))
LSET g$(7,f)=MKS$(Gewicht(7,f+4))
LSET g$(8,f)=MKS$(Gewicht(8,f+4))
NEXT f
PUT #2,Satznum%(x,y)
GOTO Statilesen
Trainingspeicherneins:
FOR f= 1 TO 4
IF n%(n)=7 THEN LSET Z$(7,f)=MKI$(Zahl%(7,f+4))
IF n%(n)=7 THEN LSET Z$(8,f)=MKI$(Zahl%(8,f))
IF n%(n)=7 THEN LSET g$(7,f)=MKS$(Gewicht(7,f+4))
IF n%(n)=7 THEN LSET g$(8,f)=MKS$(Gewicht(8,f))
IF n%(n)=8 THEN LSET Z$(7,f)=MKI$(Zahl%(7,f))
IF n%(n)=8 THEN LSET Z$(8,f)=MKI$(Zahl%(8,f+4))
IF n%(n)=8 THEN LSET g$(7,f)=MKS$(Gewicht(7,f))
IF n%(n)=8 THEN LSET g$(8,f)=MKS$(Gewicht(8,f+4))
NEXT f
PUT #2,Satznum%(x,y)
Statilesen:
GOSUB Soundend
OPEN "I",#3,U$(Satznum%(x,y))
FOR i= 1 TO 30
INPUT #3,Stati&(7,i),Stati&(8,i)
NEXT i
CLOSE 3
Zahlersuchen:
s(7)=0:s(8)=0
FOR i= 1 TO 30
IF Stati&(7,i)>0 THEN s(7)=s(7)+1
IF Stati&(8,i)>0 THEN s(8)=s(8)+1
NEXT i
FOR j=1 TO n
IF s(n%(j))<30 THEN Stati&(n%(j),s(n%(j))+1)=m&(n%(j))
IF s(n%(j))=30 AND s(n%(j))><0 THEN GOSUB Aufrucken
IF s(n%(j))=0 THEN Stati&(n%(j),1)=m&(n%(j))
NEXT j
Speichern:
OPEN "o",#3,U$(Satznum%(x,y))
FOR i= 1 TO 30
PRINT #3,Stati&(7,i),Stati&(8,i)
NEXT i
CLOSE #3
TOT$=U$(Satznum%(x,y))+".info"
KILL TOT$
GOTO Statistik
Aufrucken:
FOR i=1 TO 29
Ersatz&=Stati&(n%(j),i+1)
Stati&(n%(j),i)=Ersatz&
NEXT i
Stati&(n%(j),30)=m&(n%(j))
RETURN
Statistik:
o&(7,1)=0:o&(7,2)=15000:o&(8,1)=0:o&(8,2)=15000
FOR j=1 TO n
FOR i=1 TO 30
IF Stati&(n%(j),i)<>0 THEN GOSUB Grossenrechnen
NEXT i
NEXT j
p#(7)=o&(7,1)-o&(7,2)
p#(8)=o&(8,1)-o&(8,2)
GOTO Statibild
Grossenrechnen:
IF Stati&(n%(j),i)>o&(n%(j),1) THEN o&(n%(j),1)=Stati&(n%(j),i)
IF Stati&(n%(j),i)<o&(n%(j),2) THEN o&(n%(j),2)=Stati&(n%(j),i)
RETURN
Statibild:
SCREEN 2,330,250,2,1
FOR j=1 TO n
IF o&(n%(j),1)=o&(n%(j),2)THEN SCREEN CLOSE 2:GOTO Anfang
WINDOW j+1,b$(n%(j)),(0,0)-(320,220),20,2
PALETTE 2,0,0.93,0.87
PALETTE 3,1,0.6,0.67
IF n%(j)=7 THEN COLOR 0,2
IF n%(j)=8 THEN COLOR 0,3
LINE (20,1)-(20,200),1:LINE (320,200)-(20,200),1
PRINT U$(Satznum%(x,y))
FOR v= 1 TO 25:PRINT:NEXT v
PRINT "HEUTE";m&(n%(j));"kg";
IF o&(n%(j),1)><m&(n%(j)) THEN PRINT " TOP";o&(n%(j),1);"kg";
IF o&(n%(j),1)=m&(n%(j))AND s(n%(j))<30 THEN PRINT " LETZTES MAL";Stati&(n%(j),s(n%(j)))" kg";
IF o&(n%(j),1)=m&(n%(j))AND s(n%(j))=30 THEN PRINT " LETZTES MAL";Stati&(n%(j),29)" kg";
FOR i=1 TO 30
IF Stati&(n%(j),i)<>0 THEN GOSUB Linienziehen
NEXT i
NEXT j
Statischluss:
w$=INKEY$
IF w$=CHR$(27) THEN SCREEN CLOSE 2:GOTO Anfang
GOTO Statischluss
Linienziehen:
q#=200/p#(n%(j))*(Stati&(n%(j),i)-o&(n%(j),2))
LINE -(i*10+10,200-CINT(q#)),1
RETURN
Statibugeln:
CLS
PRINT "Statibügeln":PRINT
PRINT "Wählen sie den Namen"
War:
x=MENU (0):y=MENU(1)
SLEEP
IF x=0 GOTO War
IF x=6 AND y=3 THEN PRINT:PRINT "Ausgebügelt" :GOTO Anfang
IF x=6 AND y=1 AND n=0 THEN n=7:PRINT:PRINT "Welche Übung von ";b$(n):GOSUB soundeins:GOTO War
IF x=6 AND y=2 AND n=0 THEN n=8:PRINT:PRINT "Welche Übung von ";b$(n):GOSUB soundzwei:GOTO War
IF x=6 AND y=4 THEN PRINT:PRINT "Was tust du denn gerade,hä?":GOTO War
IF x=6 AND n>0 THEN BEEP:PRINT:PRINT "Die Übung,Mann!!!!":GOTO War
IF y=1 THEN BEEP:PRINT:PRINT "Hirni!!!":GOTO War
IF x<6 AND n=0 THEN BEEP:PRINT:PRINT "Erst den Namen":GOTO War